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VERSION: 
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? R. HUSTVEDT : VERSION 
? MODIFIED BY: 
4 v03-004 KPLO001 Peter Lieberwirth 15-Jan-1984 
? Fix broken word displacement. 
4 v03-003 KDM0002 Kathleen D. Morse 28-Jun-1982 
2 Added SPRDEF. 
: v03-002 KDM0001 Kathleen D. Morse 11-May-1982 
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yO. 600 SCHSPOSTEF = POST EVENT FLAG greene 4 8 25395 Leys SRCIPOSTER MAR GT alee: 5 vl 
51 50 Aaa) p 7 967 MOVAL PCBSL_EFCS(R4)CR1J,R1 ; AND COMPUTE ITS ADDRESS 
OOA C 148 BSBW CHKWATT + IS WAIT SATISFIED? 
50 BED F 1469 EXITN: POPL RO : SET RETURN STATUS CODE 
42. 150 EXITEN: ENBINT : 
4 151 EXIT: : 
05 4 RSB + RETURN 
6E 09 9A oc6 154 15$:  MOVZBL #SS$_WASSET, (SP) ; SET STATUS, FLAG ALREADY SET 
E8 11 0049 155 BRB 10$ : CONTINUE 
048 : .DSABL LSB 
4B : ILLEFC: 
50 OOEC BF 3C 0048 1 MOVZWL #SS$_ILLEFC,RO : SET ERROR STATUS CODE 
FO. 11 05 160 BRB EXITEN + RETURN ERROR TO CALLER 
05 16¢ NONEXPR: : NONEXISTENT PROCESS 
50 O8€8 BF 3C 0052 16 MOVZWL #SS$_NONEXPR,RO + SET NONEXISTENT CODE 
e911 097 164 BRB EXITEN + AND EXIT ENABLING 
059 166 .ENABL LSB 
0059 167 UNASEFC: 
OC AE 0234 BF 3C 0059 168 MOVZ2WL #SS$_UNASEFC,12(SP) ; SET ERROR STATUS CODE 
2c. 11 005 169 RB 30$ t RESET REGISTERS 
0061 171 COMMON: : COMMON EVENT POST 
54 pp 064 1% PUSHL R4 : SAVE R4 
7 55 7D 0063 17 MOVQ. —R5,,=( SP) : SAVE RS,R6 
55 60 14 C1 6066 17% ADDL3 #CEBSL_WOFL,(RO),RS5 : POINT TO HEAD OF WAIT QUEUE 
ED 18 006A 175 BGEQ UNASEFC : BR IF CLUSTER IS NOT ASSIGNED 
54 65 DO 006C 1% MOVL  (R5),R4 : GET HEAD OF WAIT QUE 
F6 AS) «2D si«O9s«CGFCiCédCT7 CMPB = #D YNSC_SLAVCEB,<CEBSB_TYPE-CEBSL_WOFL>(R5S) ; IS IT A SLAVE CEB? 
13 0073 178 BEQL 508 > BR IF IT IS A SLAVE 
1B FC AS & 0075 17 BBSSI R3,<CEBSL_EFC-CEBSL_WOFL>(R5),40$ ; SET EVENT FLAG; CHECK STATUS 
55 34 D4 O7A 1 20S: CPL RA RS ; CHECK FOR END OF WAIT QUEUE 
56 64 DO OO7F 1 é MOVL  (R4),R6 : SAVE REAL FLINK 
50° FC AS DE 0082 1 MOVAL  <CEB$L EF C-CEBSL_WOFL>(R5) .RO : POINT TO EVENT FLAG 
61 1 086 184 BSBB. Ss EXESCHRWAIT t CHECK FOR WAIT SATISFIED 
54 56 DO 0088 185 MOVL R6,R4 t NEXT IN WAIT QUEUE 
dD 11 O88 1 é BRB 20§ : CONTINUE 
55 8E& 7D 008D 187 30$ MOVa = (SP) +, R5 + RESTORE RS,R6 
54 «B8E) «= 0 «0090—Sés«188 MOVL  (SP)+,R4 > AND R4 
AA 11 09 189 BRB EXITN : AND EXIT 
OC AE 09 9A 83 191 40$:  MOVZBL #SS$_WASSET,12(SP) : SET STATUS, FLAG ALREADY SET 
DF 11 0099 198 BRB 20$ + CONTINUE 
3B 194 
98 136 + SET SHARED MEMORY COMMON EVENT FLAG. 
0 ppd 0098 197 Sos: PUSHL : SAVE RO 
7 24 D 009D 198 MOV —s R1,=( SP) : SAVE REGISTERS 
50 60 oD AO 19 MOVL (RO), RO : GET ADR OF SLAVE CEB 
52° 40 A0 D A : MOVL cEBSL MASTER (RQ) .R2 : GET ADR OF MASTER CEB 
ll | elt ey ROVEbL CEBSB PROECHT CASS RY” ¢ SET Wad DPOPCSLAE CERTS CULT JF SET 
' ° $ D7 86 g a: : : CONVERT COUNT OF PORTS INTO INDEX 
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SL_VASLAVET(R2)CR1] 


CEBSL _VASLAVE1 (R2) R14 


igre »R4,R5> 


(SP) 
RO,R1,R2,R3,R4,R5> 


$_WASSET,24(SP) ; 


, EFC(R2), CEBSL pede 
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ERE A 
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LAVE CEB? 

VE, DON'T SEND PROC MSG 
E CURRENT PROCESSOR? 
AG/DON'T SEND MSG TO SELF 
OR REQUEST FOR CEF COPY 
OR CODE IN RO 

EKING SLAVE CEB'S 


MAX NUMBER OF PROCESSORS 
EYENT FLAG NUMBER 


OMMON CODE 
STATUS CODE, 
INUE 


0 
I 
E 
G 
0 
U 
R 
E 
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MMO ACMmMnwDmMwTsS 


FLAG ALREADY SET 


Post = POST EVENT FLAGS 16-SEP-1984 7 VAX/VMS Macro V04-00 Page 6 
$2500 CHKWAIT = CHECK FOR WAIT CONDITION SATIS §- -SEP=1984 t 89:24 :¢ LOYS SRCIPOSTER MARG1 ate 
5, 4 ~SBTTL CHKWAIT = CHECK FOR WAIT CONDITION SATISFIED 
E4 ; 
oe4 5 it ; FUNCTIONAL DESCRIPTION: 
E4 8 : ; CHKWAIT CHECKS THE WAIT CONDITION SPECIFIED IN THE PCB 
oes AND” RESTARTS THE PREOCESS IF IT IS SATISFIED. 
OE4 1: CALLING SEQUENCE: 
OE4 gi ; JSB/BSB CHKWAIT 
O0E4 ; 
00E4 4 ; INPUT PARAMETERS: 
OE, 5; RO = EVENT FLAG CLUSTER ADDRESS 
£4 $ ; R1 = ADDRESS OF EVENT FLAG CLUSTER THAT PROCESS IS WAITING ON 
O0E4 ; R2 - PRIORITY INCREMENT CLASS 
O0E4 38 ; R4 = PCB ADDRESS 
Spee 9; 
0E4 240 ; SIDE EFFECTS: 
0&4 241: IF THE WAIT CONDITION IS SATISFIED, THE PROCESS WILL RESUME 
OE4 4¢ ; EXECUTION. R3 IS DESTROYED. 
0&4 243: 
00E4 244 == 
Q0E4 245 
00E4 246 CHKWAIT: : CHECK FOR WAIT SATISFIED 
00E4 247 .ENABL LSB 
51 50 D1 O0E4 248 CMPL ~—sRO,R1 : IS PROCESS WAITING FOR THIS 
10 12 OOE7 249 BNEQ 208 : CLUSTER? BR IF NOT 
O0E9 250 EXESCHKWAIT2:: 
53 60 4C AG cB 00E9 31 BICL3 PCBSL_EFWM(R4),(RO),R3 : TEST WITH MASK 
1 QOEE é + WAIT NOT SATISFIED 
05 24 06 OD €0 OOF 33 BBS #PCBSV_WALL,PCBSL_STS(R4),30$ ; CHK FOR WAIT ANY 
00F5 255: AT THIS POINT: 
O0OF5 256: 2 = PRIORITY INCREMENT CLASS NUMBER 
OOF 37 ; R4 - PCB ADDRESS OF PROCESS TO ACTIVATE 
gore 59 jos: RPTEVT EVENT : REPORT EVENT SET 
05 00F9 260 g08: RSB + RET 
53 53 D2 OOFA 261 30$: # MCOML R3,R3 : INVERT MASKED EVENTS 
53 4C AG «ODT sOOOFD 36¢ CMPL  PCBSL_EFWM(R4) ,R3 ; CHECK FO 
F2 13 0101 26 BEQL 108 : WAIT NOW SATISFIED 
05 0105 364 § + RETURN 
104 265 
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se .SBTTL EXESSHM_CEF_REQ - SEND SHARED MEMORY PROCESSOR REQUEST FOR CEF 
: FUNCTIONAL DESCRIPTION: 
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VIA A_SHARED MEMORY 
ONE WHENEVER A COMMON 
T. THIS TINE MUST 


ME SET. ROUTIN 
JSB-TYPE INST HE CO-ROUTINE CALLS 


ONTAINED IN 
LOCK. 
THERE IS NO 
6 ie F 
€0-ROUT INE 
BLOCK AND 


H 
AND RETU ASREQUEST. 
{ON OF THE REQUEST BLOCK. 


NMOPM*DWO 


E ING. THE RE 
SLAVE CEB EXISTS WHEN THE PRQ 


° E 
; Ss 
; THIS ROUTINE MAY OR MAY NOT RETURN EXE 
; AN ERROR ALLOCATING A FORK BLOCK, THIS 
; ONCE MASREQUEST IS CALLED, THE FLOW OF 
: FROM MASREQUEST BACK TO SCHSPOSTEF. T 
3 PACKET IMMEDIATELY AVAILABL T I$ 
: K 
: C 
; R 


aT <r CMT SPOoOVWrIr Mncon 


N ROCEED DIRECTLY 

S IF THERE IS NO REQUEST 

AT A PACKET WILL 
CESSFUL STATUS IS 

VAILABLE, THE REST OF 

ANY ERRORS ENCOUNTERED AT 


H C 
SHM_CEF REQ IS EXECUTED AS A FORK PRO 
E HEY OCCUR ASYNCHRONOUSLY 


THIS TIME ARE NOT REPORTED TO THE US 
TO HIS REQUEST. 


IF THERE IS A REQU 


E ACKET AVAILABLE, THEN THE FLOW OF EXECUTION 
RETURNS FROM ere ROUT INE 
T 


P 
ST TO SHM_CEF REQ VIA A CO-ROU ° 
ES THE REQUEST BLOCK AND RELEASES THE FORK 
NIT NS_TO MASREQUEST. MASREQUEST PLACES THE REQUEST 
itnsposter EVE, INTERRUPTS THE APPROPRIATE PORT, AND RETURNS 


MASREQUEST ENCOUNTERS AN ERROR (SUCH AS A E D 

TURNS THIS ERROR CODE TO SHM CEF_REQ VIA AN RSB IN 0 

- . SHM HE F C RETURNS 
Q S SCHSPOSTEF 

S ERROR CODE TO THE USER. NOTE THAT 5 

VE PARTIAL SUCCESS AS THE MASTER CEB I 


mm 
—_ 
— =z 


L 
BEEN UPDATED. 


: CALLING SEQUENCE: 
JSB  —-—s- EXESSHM_CEF_REQ 
: INPUT PARAMETERS: 


ee eee eee ee ee ee ee ee ee ee ee ee ee ee S| 
SES SS SS SSS SP PLP PPE LALA APA PPPLIPPP PP PLIS PPPS PSPS PPPS P SPSS SLES 
PRR RRR RR RR PRP RPP PPR PRP PRP PRR RRP PR PRP RPP PP PPP PPP PP PP PPP PPE 
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5 1§-SEP-1984 00:57:27 VAX/VMS Macro. 04-00, ° 
OS SEND SHARED MEMORY PRO 'SaSEP=19B4 Doizeito Lene eR TBOS SEY Mag — 
RO = VA OF SLAVE CEB FOR PORT THAT THE REQUEST IS FROM 
Ri - PORT # TO SEND THE REQUEST TO 
R2 - ADDRESS OF THE MASTER CEB IN SHARED MEMORY 


IMPLICIT PARAMETERS: 
THE SHARED MEMORY DATA STRUCTURES. 
OUTPUT PARAMETERS: 


RO - f MPLETION STATUS CODE 
Ri - DESTROYED 


COMPLETION CODES: 
SS$_NORMAL = SUCCESSFUL COMPLETION 


SS$"BADQUEVEHDR = UNABLE TO ALLOCATE INTER=PROCESSOR REQUEST BLOCK 
OTHERS FROM ALLOCATION/DEALLOCATION ROUTINES. 


EXESSHM_CEF _REQ: ; RTN TO SEND INTER-PROCESSOR REQUEST 
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SPREE PPE PMWWIMIDIDINININININININ 2 | — “QDODOCOOOCOOVOOVOOOCOOOOOOOOOOOOOOCOOO 1 Mm 
Cae © he be eta?) mal be ee ab To alasl! loot oP ot ot ot ot ot ot ot ot ot ot et ot et et et et et et et et et et ee oe 


CGDOCOOOOCOCOOSOCOOCOSOCOOCOSOOCOSOOOOCOOSCOCOOCSOOCOOCOCOOCOOCOOOOOOOOOOOOOOOO 


-ENABL LSB 
ASSUME Insc ENGTH GT_<FKBSC eres + 12> 
PUSHR M<RO,R 3> AVE REGISTERS 


MOVZWL FIRPSC *LENGTH,R1 : ALLOCATE IRP INSTEAD OF FKB FOR SPEED 
BSBW EXESALONONPAGED : GET A FORK BLOCK BUT DO NOT WAIT 

: FOR THE RESOURCE IF NONE IS AVAILABLE 
BLBS R0,5$ : BR IF SUCCESSFUL, BLOCK ALLOCATED 
MOVL RO’ (SP) : REMEMBER ERROR CODE 
BRB RETURN ; RETURN ERROR CODE TO CALLER 
MOVW Ri FKBSW_SIZE(R2) SET SIZE OF BLOCK ALLOCATED 
MOVB  #DYNSC_FRK,FKBSB_ TYPE (R25 ; SET TYPE TO FORK BLOCK 
MOVL RD RS ; SAVE ADDRESS OF FKB 
POPR #*M<RO,R1.R2.R3> : RESTORE REGISTERS 


INITIALIZE THE FORK BLOCK WITH EVERYTHING NEEDED TO INITIALIZE THE 
INTER=PROCESSOR REQUEST PACKET AS EXECUTION MAY CHANGE TO A FORK PROCESS. 


MOVB #IPLS 2pEvEast effets FIPL(RS) ; SET FORK IPL 
y  ; SET BoRT REQUEST IS SENT 


MOVW 

MOVL Cres ET H MEM CONTROL BLOCK 
MOV7BW att ar erKasc Lehctae2snnss SET PORT # SENDING REQUEST 
MOVZBL #PROST S <fKBSC LENGTH+8>(R5) REMEMBER SUB-TYPE OF PRO BL 


MOVZWL CEBSU * TNDX rer <FRESC _LENGTH +4>(R5$ : SET INDEX TO MASTER C 
MOVL  SHBSL~ “ADPARE), af : 


NOW ACQUIRE AN INTER-PROCESSOR py pen fd BLOCK. EXECUTION THROUGH THE 
FOLLOWING LINES OF CODE MAY BE ASYNCHRONOUS IF NO Wi IS_ CURRENTLY 
AVAILABLE. ASYNCHRONOUS EXECUTION WILL BE DONE AS A FORK PROCESS. 


0$: JSB MASREQUEST : ALLOCATE A REQUEST BLOCK 

; R4 AND RS MUST BE PRESERVED THRU RSB 
PUSHR #*M<RO,R1,R2,R3> > SAVE REGISTERS AS SET BY MASREQUEST 
BLBC —- RO, ERROR_PRO : BR IF ERROR APLOCATING REQUEST BLOCK 


STEF = POST EVENT FLAGS 16-SEP-1984 AX/VMS Macro v04-00 Page 
y02~000 EXE SHMC CER REO = SEND SHARED MEMORY PRO Toes 7 88:22 ¢ SYS.SRCJPOSTEF MAR; 1 ° 
14¢ «281; Re = INTER-PROCESSOR REQUEST BLOCK ADDRESS 
16¢ ; R5 = FORK BLOCK ADDRESS 
14¢ . ASSUME PROSW_FR_PORT EQ <PROSW_TO_PORT + 2> 
18 a2 18 a5 p90 146 5 MOVL  <FKBSC_CENGTH>(RS) ,PROSW TO PORT(R2) ; SET PORT #' 
OB Ao OBA 1 : MOVE FKBSB_FIPL(RS) ,FKB$B FIPC(R2) ; SET REQUEST HANDLER IP 
1¢ A200 BO. sCO0156 MOVW  #PROST_EXEC,PROSW bis Arenthe)*: : SET EXECUTIVE REQUEST TYPE 
30 A2 20 A5 BO O15A 8 MOVW  <FKBSC“LENGTH+8>(RS) ,PROSW_REQTYPE(R2) ; SET REQUEST SUB-TYPE 
4 A2 10 AS DO 13 89 ren opto <FKBSC-LENGTH*4>(R5) .PROSL-PARAM(R2) ; SET INDEX TO MASTER CEB 
50 (55 00 164 391 ~ “MOVL RS, RO : SET ADR OF FORK BLOCK TO RELEASE 
FE96" a18h 3¢ hae BSBW EXESDEANONPAGED + RELEASE FORK BLOCK 
OF BA O16A 394 " POPR = #°M<RO,R1,R2,R3> ; RESTORE REGISTERS AND ERROR CODE 
05 b16¢ 93 RSB + RETURN TO MASREQUEST OR SCHSPOSTEF 
0160 397 .DSABL LSB 
016D 398 
016D 399 END 


POSTEF 
Symbol table 


CEBSB_PROCCNT 
cE E 


C 
CEBSL MASTER 


“TYPE 
SC"LENGTH 
1 $W_SIZE 
PL$_QUEUEAST 
PL$"SYNCH 
RPSC_LENGTH 


MASREQUEST 


PROSC_EXEC 
PROSC~SETEF 


PROSL ~PARAM 
PROSW_DISPATCH 
PR PORT 


= POST EVENT FLAGS 
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! Psect synopsis ! 


$awasececec ane ne aa} 


PSECT name Allocation PSECT No. Attributes 

. ° 0 00 ¢( oa ( -) NOPIC USR CON ABS LCL NO 
SABSS 0990000 ( g:) a} ( 9.) NOPIC USR CON ABS LCL NOSHR 
AE XENONPAGED 0°90016D ( 365.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR 
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! Performance indicators ; 


eee os Rte SE Bh etepess Stee 
Conmand processing 16 00:00:09. 35 e: ‘f 
pyabo) table sort 2 0: 0; 1:53 8; : i'6 

ae table output oF 5: 6; 0:3 0:09: 0:58 
Psect synopsis output Se 700. 0 : 0: 0. ‘ 
Cross-reference output 6 00: if % eB 0 

Assembler run totals 53 00:00:13. 0:00:50.06 


2 ,yorking set Limit was 1200 pages. 
3383 bytes (109 pages) of virtual memory were used to buffer the intermediate sede. 
There were 60 pages of symbol table space allocated to hold 1035 non-local and 17 local symbols. 
source lines were read in Pass 1, producing 13 object records in Pass 2. 
pages of virtual memory were used to define 21 macros. 


Macro Library name Macros defined 
~$25550UA28: EEi98 JL1B.MLB;1 12 
55$DUA SYSLIB SrAMLET. MLB;2 § 
TOTALS (all libraries) 1 


1150 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:POSTEF /OBJ=OBJ$:POSTEF MSRC$:POSTEF /UPDATE=(ENHS:POSTEF ) +EXECMLS$/LIB 


SHR NO 


CORPORATION 
PROPRIETARY | 
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